home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
PGM_TOOL
/
TCUNIT
/
WINDGLOB.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-07-02
|
831b
|
35 lines
(*
* PROGRAM : Globals for WindTest
* SYSTEM : Turbo Pascal 4.0, 5.0, and 5.5
* AUTHOR : (C) 1988, 1989 by Tom Swan
*)
UNIT WindGlob;
INTERFACE
USES Crt;
CONST
CBase : String[7] = ('@CBASE@'); { Mark beginning of TC area }
{----- Start of default typed-constants area }
WBForeColor : Word = ( Blue ); { Border foreground color }
WBBackColor : Word = ( LightGray ); { Border background color }
WTForeColor : Word = ( Yellow ); { Text foreground color }
WTBackColor : Word = ( Blue ); { Text background color }
WTitle : String[40] = ' Test Window '; { Window title }
{----- End of default typed-constants area }
EBase : Char = ( '!' ); { Mark end of TC area }
IMPLEMENTATION
{ No code in this unit }
END.